home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
windows
/
games
/
wlpep111.arj
/
WALLPAP.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-12-15
|
5KB
|
111 lines
Form2
Preview
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
Form2%
Picture1
DestinationPic
Form_Resize
WallPaper
Form_Unload
Cancel3
Form_Load
Form1q
Heighta
Left)
Width4
Form_DblClickd
Check1=
Value!
File1DClick
List1DClick
Form2g
WindowState
Loading#
False
Picture1_Click
Draggingo
Picture1_MouseDown
Button
Shift
Picture1
Picture1_MouseMove
Picture1_MouseUp
StretchBltB
nWidth
nHeight
hSrcDC{
nSrcWidth
nSrcHeight
dwRop?
DragPictureTo
hDestDCW
BitBltR
SourcePicQ
Visible
SourcePic_Click
DestinationPic
DestinationPic_MouseDown
MouseDownn
DestinationPic_MouseMove
DestinationPic_MouseUp:
AutoRedraw[
Picture
imageI
NonPersistentHDCH
PersistentHDC
Check2
Tiling?
gDragging
floadpSub
ShowAllFiles
TileChecked
ScaleWidth
ScaleHeight
scalemode
Moving
gDrawingm
Timer1
Enabled
ScaleWith'
AutoResize
AutoSize
Metafile
Ratio
InPic1
ExitSub
MousePointer
Form_MouseMove
DottedLine
PositionOutline
DestinationPic_MouseDown
DestinationPic_MouseMove
If Y > ScaleHeight + 2 Then Y = ScaleHeight + 2
Carole Rogers r
DestinationPic_MouseUp
stop moving this up
it belongs after the mouse_move call
Call DestinationPic_MouseMove(Button, Shift, X, Y)
Call DestinationPic_MouseMove(Button, Shift, X, Y)
Call DestinationPic_MouseMove(Button, Shift, X, Y)
Form_DblClick
Form_Load
Top = Form1.Top=
Form_MouseMove
Form_Resize
Command1.Width = ScaleWidth
Form2.Visible = True
minimized
Form_Unload
Picture1_MouseDown
Picture1_MouseMove
Call DestinationPic_MouseMove(Button, Shift, (Picture1.Left) + X, (Picture1.Top) + Y).
Picture1_MouseUp
Call DestinationPic_MouseUp(Button, Shift, Picture1.Left + X, Picture1.Top + Y)c